Chip 2001 September/Chip_2001-09_cd1.bin/sharewar/webftp/webftp30.exe/{app}/WebFtp3.exe/0/RCDATA/TFORMPING/TFORMPING.txt

Text File | 2001-07-11 | 4.7 KB | 246 lines

object FormPing: TFormPing
  Left = 425
  Top = 190
  BorderIcons = [biSystemMenu, biHelp]
  BorderStyle = bsDialog
  Caption = 'Ping Utility'
  ClientHeight = 399
  ClientWidth = 537
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 143
    Top = 306
    Width = 73
    Height = 17
    AutoSize = False
    Caption = 'Host Address:'
  end
  object Label3: TLabel
    Left = 143
    Top = 338
    Width = 65
    Height = 17
    AutoSize = False
    Caption = 'Packet Size:'
  end
  object Label4: TLabel
    Left = 287
    Top = 338
    Width = 49
    Height = 17
    AutoSize = False
    Caption = 'Timeout:'
  end
  object Label5: TLabel
    Left = 383
    Top = 338
    Width = 17
    Height = 17
    AutoSize = False
    Caption = 'ms'
  end
  object Label6: TLabel
    Left = 431
    Top = 338
    Width = 53
    Height = 17
    AutoSize = False
    Caption = 'Max Hops:'
  end
  object Label2: TLabel
    Left = 8
    Top = 8
    Width = 521
    Height = 17
    AutoSize = False
    Caption =
      'These functions use blocking calls. Cancel will abort, but only ' +
      'after the current operation.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Memo1: TMemo
    Left = 8
    Top = 24
    Width = 521
    Height = 249
    HelpContext = 48
    TabStop = False
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 7
  end
  object EditAdd: TEdit
    Left = 215
    Top = 304
    Width = 313
    Height = 21
    HelpContext = 49
    TabOrder = 0
  end
  object ButPing: TButton
    Left = 111
    Top = 368
    Width = 75
    Height = 25
    Caption = '&Ping'
    Default = True
    TabOrder = 4
    OnClick = ButPingClick
  end
  object ButExit: TButton
    Left = 271
    Top = 368
    Width = 75
    Height = 25
    Caption = '&Exit'
    TabOrder = 5
    OnClick = ButExitClick
  end
  object EditSize: TEdit
    Left = 215
    Top = 336
    Width = 41
    Height = 21
    HelpContext = 50
    TabOrder = 1
    Text = '64'
    OnKeyPress = EditSizeKeyPress
  end
  object EditTime: TEdit
    Left = 335
    Top = 336
    Width = 41
    Height = 21
    HelpContext = 51
    TabOrder = 2
    Text = '3000'
    OnKeyPress = EditTimeKeyPress
  end
  object EditTTL: TEdit
    Left = 487
    Top = 336
    Width = 41
    Height = 21
    HelpContext = 52
    TabOrder = 3
    Text = '32'
    OnKeyPress = EditTTLKeyPress
  end
  object Button1: TButton
    Left = 351
    Top = 368
    Width = 75
    Height = 25
    Caption = '&Help'
    TabOrder = 6
    OnClick = Button1Click
  end
  object CheckTrace: TCheckBox
    Left = 8
    Top = 306
    Width = 81
    Height = 17
    HelpContext = 53
    Caption = 'Trace Route'
    TabOrder = 8
    OnClick = CheckTraceClick
  end
  object Button2: TButton
    Left = 191
    Top = 368
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    Enabled = False
    TabOrder = 10
    OnClick = Button2Click
  end
  object Stat: TPanel
    Left = 8
    Top = 274
    Width = 521
    Height = 17
    Alignment = taLeftJustify
    BevelOuter = bvLowered
    TabOrder = 11
  end
  object Check1: TCheckBox
    Left = 8
    Top = 338
    Width = 121
    Height = 17
    HelpContext = 54
    Caption = 'Retrive Server Name'
    Enabled = False
    TabOrder = 9
  end
  object Ping1: TPing
    Size = 56
    Timeout = 4000
    TTL = 64
    Flags = 0
    OnDisplay = Ping1Display
    OnEchoRequest = Ping1EchoRequest
    OnEchoReply = Ping1EchoReply
    OnDnsLookupDone = Ping1DnsLookupDone
    Left = 360
    Top = 216
  end
  object PingTracer: TPing
    Size = 56
    Timeout = 4000
    TTL = 64
    Flags = 0
    OnDisplay = PingTracerDisplay
    OnEchoRequest = PingTracerEchoRequest
    OnEchoReply = PingTracerEchoReply
    OnDnsLookupDone = PingTracerDnsLookupDone
    Left = 328
    Top = 216
  end
  object Lookup: TWSocket
    LineMode = False
    LineLimit = 65536
    LineEnd = #13#10
    LineEcho = False
    LineEdit = False
    Proto = 'tcp'
    LocalAddr = '0.0.0.0'
    LocalPort = '0'
    MultiThreaded = False
    ComponentOptions = []
    OnDnsLookupDone = LookupDnsLookupDone
    FlushTimeout = 60
    SendFlags = wsSendNormal
    LingerOnOff = wsLingerOn
    LingerTimeout = 0
    SocksLevel = '5'
    SocksAuthentication = socksNoAuthentication
    Left = 296
    Top = 216
  end
end